home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / gcc263-inclib.lha / gnu / geninline / mklibamiga / gluesrc1.lha / small / AddAppIconA.s < prev    next >
Encoding:
Text File  |  1994-09-27  |  281 b   |  18 lines
  1. .text; .even; .globl _AddAppIconA
  2.  
  3. _AddAppIconA:
  4.     moveml #0x3a,sp@-
  5.     movel a4@(_WorkbenchBase:W),a6
  6.     movel sp@(20),d0
  7.     movel sp@(24),d1
  8.     movel sp@(28),a0
  9.     movel sp@(32),a1
  10.     movel sp@(36),a2
  11.     movel sp@(40),a3
  12.     movel sp@(44),a4
  13. #APP
  14.     jsr a6@(-0x3c)
  15. #NO_APP
  16.     moveml sp@+,#0x5c00
  17.     rts
  18.